home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / XLisp 2.1e3 / lisp / dragon.lsp < prev    next >
Lisp/Scheme  |  1993-05-18  |  1KB  |  40 lines
  1. ; dragon.lsp for MacXLisp 2.1e by Tom Almy and Brian Kendig
  2. ;
  3. ; An Nth-order dragon curve using turtle drawing routines.
  4. ; Originally from Byte (April 1986), converted to xlisp
  5. ; by Peter Ashwood-Smith, modified by Tom Almy and Brian Kendig.
  6. ;
  7. ; Note that you have to have turtle.lsp loaded for this to work.
  8. ; And you might want to press Command-Period to stop the program
  9. ; when it starts drawing beyond the window where you can't see it.
  10. ;
  11. ;              P.S - This dragon is nicknamed "spot".
  12.  
  13. ;#-:turtle (load "turtle")
  14.  
  15. (defvar *StepSize* 1)
  16.  
  17. (defun Dragon (sign level)
  18.   (if (zerop level) 
  19.     (TurtleForward *StepSize*)
  20.     (progn
  21.       (setq level (1- level))
  22.       (TurtleRight (* 45 sign))
  23.       (Dragon -1 level)
  24.       (TurtleLeft (* 90 sign))
  25.       (Dragon 1 level)
  26.       (TurtleRight (* 45 sign)))))
  27.  
  28. (defun DragonCurve (n m)
  29.   (setq *StepSize* m)  ; *StepSize* is global variable
  30.   (TurtleInit)
  31.   (color 0 40000 0)
  32.   (TurtleCenter)
  33.   (TurtleGoto 50 50)
  34.   (TurtleRight 30)  ; angle the serpent a bit
  35.   (Dragon 1 n)
  36.   (gc))
  37.  
  38. (print "Try (DragonCurve 14 3)")
  39.  
  40.